home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / misc / interfaces3_5.lha / Interfaces / Cia.mod < prev    next >
Text File  |  1994-03-05  |  777b  |  39 lines
  1. (*
  2. (*
  3. **  Amiga Oberon Interface Module:
  4. **  $VER: Cia.mod 40.15 (28.12.93) Oberon 3.0
  5. **
  6. **   © 1993 by Fridtjof Siebert
  7. *)
  8. *)
  9.  
  10. MODULE Cia;
  11.  
  12. IMPORT e * := Exec;
  13.  
  14. CONST
  15.  
  16.   ciaaName * = "ciaa.resource";
  17.   ciabName * = "ciab.resource";
  18.  
  19.  
  20. VAR
  21.  
  22. (*
  23.  *  You have to put a pointer to the cia?.resource here to use the cia
  24.  *  procedures:
  25.  *)
  26.  
  27.   base * : e.APTR;
  28.  
  29.  
  30. PROCEDURE AddICRVector *{base,- 6}(icrBit{0}    : SHORTINT;
  31.                                    interrupt{9} : e.InterruptPtr):e.InterruptPtr;
  32. PROCEDURE RemICRVector *{base,-12}(icrBit{0}    : SHORTINT;
  33.                                    interrupt{9} : e.InterruptPtr);
  34. PROCEDURE AbleICR      *{base,-18}(mask{0}      : SHORTSET):SHORTSET;
  35. PROCEDURE SetICR       *{base,-24}(mask{0}      : SHORTSET):SHORTSET;
  36.  
  37. END Cia.
  38.  
  39.